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THIS *prograa* will alles you to use SMART II software with the 
AERCO Interface and an Epson printer. Gesini printer, and 
Gorilla Banana printer, (Other eodels have not been tested, but 
siailar aodels should work). Try it and let SINCUS MEWS know 
how it sorted. 


100 INPUT "DO YOU нече. ТЕБИ со 
DE iT с. 


110 IF AgS="yes" THEN GO TO 4090 
129 BRINT, “PLEASE LOAD MTERM CO 


@ STOP 
4660 RESTORE 4100 
4010 fs89173 TO 59175 
4020 go. SUB 4500 


xT f 
4040 FOR f=59189 TO 59199 
tese GO sum 45 


NEXT 
4070 FOR (358618 TO 58833 
4089 NEXT sue 4500 


4092 ÍNT' ‘ji "SAVE YOUR ALTE 
RED HTERN ом, TAPE” 


4094 PRINT "DAVE SCHOENUETTER" 
4895 PRINT "1338 FARM TO MARKET 


RD. 
$986 P RINT "ENDUELL, NEU YORK,.1 
4099 PRINT "аі done": STOP 
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48538 RETURN 
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89, *U Sup aut 1e HÊ 
29 REM вї" KEITH SKAPINSKI 


480 FOR 8 "a" TO USR "b'"47? 

50 READ POR E і,а: NEXT i 

6@ DATA 255,0 ,285,0,255,0,285, 
0,66,36,189,173,255,36,36,102 

70 LET had 


s=1 
9@ CLS : PRINT “Difficulty Lev 
? died SsHar 
108 LET UE. z q$«"1" OR 


120 LET х=18: LET 2055: LET ass 
: LET bz16 


CLS 
140 PRINT "АААААААААЯАААЯАЯЯЯЯЯ 
nO ti n" 


@ FOR isi TO 19: PRINT RT i,@ 


Pa Meee a не or eee E adr E 


а: NEXT 
16@ PRI NT. "RRRRRRRRRRRRRRRRRRRAR 
RRaBRRRRRRRAR" 
i70 FOR ize TO 18 STEP 2: PRINT 
RT 2 ' ПАЯ, AAA. ARRA. AAR. RR 


i 
i80 PRINT AT X,Y; "©": PRINT AT 
498 IF asx AND bay THEN GO TO 3 


S20 IF $/2372sINT (£7372) THEN B 
EEP 1,1: LET szs41: GO TO 120 
210 EEr ee LET yisy: LET als 


= 
220 LET x=x+(INKEY$=s"6" OR IN 3 
124) - CINKEY$="7" QR IN 3128) 
230 LET og Sane alg Er OR IN 3 


240 IF CODE SCREENS (х,у) =0 THE 
b LET х=х1: LET ysyi: BEEP .01,1 


"аве IF SCREENS (x,y) ="." THEN L 
s=s+1: BEEP .Q001,50 
Feo IP RND«i THEN LET a=at+ix>a) 
-(x«a): IF CODE SCREENS (a,b) аё 
THEN LET azai 
270 IF RND«L THEN L bsb+(y>b) 
<b): IF CODE SCREENS (a,b) 28 
THEN LET bsbi 
280 IF s>h THEN LET hss 
290 RRINE AT 21,0; INK 2; INVER 
ВЕ 1; SCORE: ";s,"HI-SCORE: " 


^ 4oe PRINT AT ai, et QUER 1;"B" 
340 PRINT AT xi,g91;" " 
539 50 TO 18 
30 PRINT AT 10,10; FLASH 1;" G 
ane R 


340 ВЕЕР 1, @: BEEP 1,0: BEEP. .1 
p BEEP 1,0: BEBE 1,3: BEEP .5, 
SEEP 1,0: EP .8,-1: BEEP 1, 


2: 
e 
3590 DIM а$ (0704): FOR і=0 TO ?:` 
ВЕЕР .001,і +40: PRINT AT 0,0; IN 
K i; ӨЧЕН 1;a$: NEXT i 


@ CL 
378 PRINT AT iQ, ane FLASH 1;" PR 
ESS ANY KEY FOR ANOTHER GO 

380 IF INKEY SS THEN OUT 254, R 
ND«255: GO TO 380 

398 BORDER 7: GO TO 80 


100 bu 
LS INT AT 10,5; "КЕМРЗТ 

EN 1 ONPATABLE™ PAUSE ise 

420 RETURN 


430 CLEAR : RANDOMIZE USR 100: 
OPEN 84,"dd": PRINT we SAVE "zo 
MBIE. BA” 


"ANAGRAM" 


This program will make GOOD and 
BAD Anagrams of words you Input. 
It will fit in 1K. 

Created by: Jody Koenig; Decorah, 
Iowa. 


1 REM ANAGRAM 
10 INPUT A$ 
15 DIM D(LEN A$) 
17 LET A=1 
20 FOR C=1 TO LEN A$ 
20 LET X-INT (1*LEN A$*RND) 
ЦО FOR B=1 TO LEN A$ 
50 IF X=D(B) THEN GOTO 30 
60 NEXT B 
70 PRINT A$(X) 
72 LET D(A)=xX 
75 LET A-A*1 
80 NEXT C 
85 PRINT 
90 GOTO 15 


"RENUMBERING ROUTINE" 


Attach these lines to the end of a 
basic program. Enter GOTO 9991- in 
the immediate mode - and the com- 
puter will renumber any basic pro- 
gram counting in intervals of 5. 

If you wish to change the numbering 
interval, change the value of N and 
the 5 in line 9995. 

Remember to change GOTOs and GOSUBs 
after the program has been renum- 
bered. | 

Created by: Steven Kaye; Submitted 
by and with permission from the ZX 
USERS Group of New York. 


9991 LET B=16509 

9992 LET N=5 

9993 POKE B,INT (N/256) 

9994 POKE B*1,N-256*INT (N/256)- 
9995 LET N-N*5 

9996 LET B-B*1 

9997 IF 256#РЕЕК В+РЕЕК (B+1)=9990 
THEN STOP 

9998 IF PEEK (B-1)=118 THEN СОТО 9 


9999 GOTO 9996 


"BINARY CHARACTER PEEKER" 


This program will print out the 
Binary Representation (and equal 
Decimal number) of Eight Consecu- 
tive Addresses, a GOOD use for this 
is to see how characters are held 
in the ROM, for example Input Add- 
ress "8000" to see how the letter 
"С" is formed (as seen by the Dec- 
imal 1's). 

Created by: Jody Koenig; Decorah, 
Iowa. 


10 PRINT "ENTER STARTING ADDRESS" 
15 PRINT 
20 INPUT A 
4O FOR F=A TO A+? 

50 LET B=PEEK F 

52 LET D=B 

55 LET 0=128 

60 PRINT Р;"="; 

70 FOR G-1 TO 8 

80 PRINT CHR$((B> =U) +28); 
90 IF B>=C THEN LET B=B-C 

100 LET C=U/2 

110 NEXT G 

120 PRINT "=";D 

130 NEXT F 

140 INPUT A$ 

150 CLS 

160 KUN 


ENTER STARTING ADDRESS 


8000=00000000=0 

8001-00111100-60 
8002=01000010=66 
8003 01000000=64 
8004--01000000=64 
8005-01000010=66 
8000 00111100=60 
8007 =00000000 =0 


9.1. 
L..I.3. 


a LIO. 


"64 CHARACTERS" 
AND A CLEAR SCREEN 


Use this program in conjunction 
with your users manual. This is the 
way you begin to work with 64 char- 
acters on the screen. You need to 
shuffle everything around inside 
the computer's RAM memory and that 
is exactly what this routine does. 
Follow the prompts in the REM state- 
ments and you should not have any 
troubles. , 
Created by: Doug Dewey of Triangle 
Users Group, North Caroliná; 
Submitted by and with permission 
from the ZX USERS Group of New York. 


1 REM This program allows the user 
to reallocate various different 
components of RAM memory and make 
way for a clear screen in the 64- 
character mode. See page 254 for 
the different display file/memory 
maps and pages 247 and 248 for the 
codes for variable b. 

2 REM Call this routine by PRINT 
USR 63000 

5 CLEAR 62999 

7 PRINT "Please input b": INPUT b 
10 LET a=63000 
20 READ n: POKE a,n 
30 LET a-a*1: GOTO 20 
40 DATA 243,62,1,211,244,219,255,2 
03,255,211,255,62,b,245,251,205,14 
2,14,243,219,255,203,191,211,255,1 
75,211,244, 241 ,254,128,3,2,3,50,19 
&,92,251,201 


"MOSAIC CURTAIN" 


Are you tired of BLANK screens at 
the end of your programs? This 
Little routine at the end of your 
program will give you a very PLEA- 
SANT and ATTRACTIVE SCREEN. 
(g means a graphic character "8"). 
From Synapse of Central PA. TS 
USERS Group; Submitted by and with 
permission from the ZX USERS Group 
of New York. 


10 FOR x=1 TO 704: LET i-RND*5*1: I 
NK i: PRINT "g"; 

20 NEXT X 

25 PAUSE 60: CLS: GOTO 10 


"GRAPH 16K" 


Here is a program to draw a bar graph 
When it runs, you must enter 20 num- 
bers, greater than 0 but less than 40 
My goal in writing the program was to 
keep it as short as possible, thus it 
doesn't offer fancy borders, variable 
range for numbers etc. The program 
illustrates a plotting technique you 
can use in other programs. 

From: Sinclair/Timex Users Group of 
Boston, Massachusetts; Submitted by 
and with permission from the ZX USERS 
Group of New York. 


10 REM *** TS1000 GRAPH PROGRAM 
20 LET Y=4 

30. DIM A(^0) 

40 FOR T=1 TO 20 

50 INPUT A(T) 

60 NEXT T 

70 LET T=1 

80 FOR Z=1 TO 20 

90 FOR R=1 TO A(T) 

100 PLOT Y,R 

110 NEXT R 

120 LET T=T+1 

130 LET Y=Y+2 

140 NEXT Z 

150 PRINT AT 16,0;"10" 
160 PRINT AT 11,0;"20" 
170 PRINT AT 6,0;"30" 
180 PRINT AT 1,0;"40" 


"A HEADER PROGRAM FOR" 
ZX-81&TS-1000 


When I got my TS-2068 I thought one 
of the marvellous things about it 
was a Header program by which one 
could get the name of a program 
displayed on-screen a few seconds 
after it started loading. If only 
the ZX-81 had that feature it 
would be marvellous, I thought. 
Where have I been all this time? 

I have only just discovered there 
is a program to do practically the 
same thing. It is to be found in 
Mike Lord's book "Explorers guide 
to the ZX-81". How I ever spotted 
it I will never know. 

With the thought there must be many 
in the same position as myself, I 
would like to present this practi- 
cal program. 

It is a M/C routine that is placed 
in a REM statement at the beginning 
of a short Basic program. First 


create a REM statement of 66 spaces 


(or more) then enter the lines as 
shown in Fig. 1. Put your computer 
in the FAST mode, RUN the program 
and enter the numbers in Fig. 2 
starting with the top row, left to 
right. When you are done check that 
the sum of the numbers is 7620. 
Then delete all lines except the 
line 1. containing the REM state- 
ment. 

Enter the lines in Fig. 3. SAVE 
this program, since this is the 
program you will use to obtain 
HEADER information from your other 
program tapes. 

When you RUN this program, it will 
prompt you to start playing the 
tape which you wish to identify. 
At the start of the LOADing of a 
tape the program name under which 
it was SAVEd will appear on the 
Screen. Any other program appear- 
ing on the tape will be similarly 
identified. 

Written by:G.F. Chambers; Canada, 
Submitted by: ZX users Group of 
New York. 


Fig 1) 


1»REM 123556789012355678901234567 
8901255567890123556789012345678901 


23456 f 
10 FOR I=16514 TO 16579 

20 INPUT A 

30 POKE I,A 

40 PRINT " 40 SCROLL u 
50 PRINT I;" ",A 

60 NEXT I 

70 PRINT "FINISHED" 

110 PRINT "PRESS A KEY TO CHECK " 
120 IF INKEY$="" THEN GOTO 120 
130 LET TOTAL=0 

140 FOR I=16514 TO 16579 

150 LET X=PEEK I 

160 LET TOTAL=TOTAL+X 

170 NEXT I 

180 PRINT TOTAL 

Fig 2) 

205 35 15 205 136 64 
2h 251 14 1 6 0 

62 127 219 254 31 23 
23 56 16 16 245 241 
205 138 64 121 215 203 
121 HO 247 205 43 15 
201 213 30 146 6 26 
29 219 254 23 203 123 
123 56 245 16 245 209 
32 ` 254 86 H8 206 
63 203 17 48 201 201 
Fig 3) 


1>REM LN 7?LN wRND/ CLS :" gm Yf3 = RE 
TURN 3**5(( PRINT LET LN wRND?NOT А 
CS ?C RUN LN F?TAN STR 2&",1 -RETU 
RN*ACS ??5 PRINT (PRINT SGN 4e ВЕТ 
RN*KEXP ZACS)KTAN TAN 

20 PRINT " 20 RAND USR 16514" 

20 PRINT AT 20,0;"PRESS A KEY TO RE 
AD TAPE" 

40 IF INKEY$=" 
50 CLS 

60 GOTO 20 

100 SAVE "HEADER READE{J’ 
110 GOTO 30 


THEN GOTO 40 


"SECRET WRITING MACHINE" 


This program was converted from 
Microsoft BASIC. It turns your com- 
puter into a secret writing machine, 
using a simple and ancient crypto- 
graphic technique known as the 
Caeser cipher. For example, with a 
key of 3, the message: THE APPLES 
ARE RIPE becomes the encoded mess- 
age: WKH DSSOHV DUH ULSH. 

Load it in your ZX-81, T/S-1000 and 
Explore the craft of cryptography! 
Have Fun. 

Created by: G. Stewart; Revised by: 
E.J. D'Urbano; Submitted by and 
with permission from the ZX USERS 
Group of New York. 


10 LET LB=38 

20 LET UB=63 

30 PRINT TAB 5; "SECRET WRITING MACH 
INE" 

31 PRINT TAB 5; "ammm 
wasan " 

ЦО PRINT 

100 PRINT "ENTER THE KEY (1-25)"; 
101 INPUT K 

102 PRINT K 

105 PRINT 

110 IF K«1 OR K>25 THEN GOTO 100 
200 PRINT "ENTER E TO ENCODE OR D T 
O DECODE "; 

201 INPUT C$ 

202 PRINT C$ 

203 PRINT 

210 IF C$<>"E" AND C$<>"D" THEN GOT 
О 200 


300 PRINT "ENTER THE MESSAGE: " 
301 FAST 

302 PRINT 

310 INPUT M$ 

311 PRINT M$ 

312 PRINT 

320 IF M$-"" THEN GOTO 300 

330 SLOW 

400 FOR P=1 TO LEN (M$) 

410 LET X$=M$(P TO P*1-1) 

420 IF X$>="A" AND X$<="Z" THEN GOT 
О 500 

430 LET Y$=x$ 

440 GOTO 600 

500 IF C$="D" THEN GOTO 540 
510 LET YP=CODE (X$)+K 

520 IF YP»UB THEN LET YP:YP-26 
530 GOTO 560 

540 LET YP=CODE (X$)-K 


IF YP<LB THEN LET YP=YP+26 
LET Y$-CHR$ (YP) 

PRINT Y$; 

NEXT F 

PRINT 

PRINT EI t 

PRINT "DONE" 

STOP 


"2Х-81 FAST-TYPE" 


This short program enables ZX-81 
users to clear the screen when full 
during entry of long programs thus 
preventing the whole screen from 
being rewritten each time a new line 
is entered. 

Created by Demetre from U.K.; Sub- 
mitted by and with permission from 
the ZX USERS Group of New York. 


Enter these lines first: 


2 CIS 
3 PRINT "ENTER LAST LINE NO. " 

4 INPUT LL 

5 POKE 16419,LL-INT (LL/256)*256 
6 POKE 16420,INT (11/256) 

? LIST LL Р 

8 STOP 


When screen is full during program 
entry, enter GOTO 2 as a direct com- 
mand, enter the number of the last 
line on sereen and the screen is 
cleared leaving the last line. 


ZIGGY a 


UM. VAY OVERDUE 
FOR A VACATION !! SO 


(BOOKED MY 
VRBE PA GET E 
SILICON! VALLEY ! 


"GRAPH-GRAPH" 


Input an equation containing - X or 
y or both and the computer will 
print a graph. For 2X/81-TS/1000 
Submitted by: ZX Users Group of New 
York. 


10 PRINT "INPUT AN EQUATION CONTAIN 
ING X OR Y OR BOTH" 

20 DIM W(2,64) 

20 INPUT Z$ 

ho CLS 

50 FAST = 

60 FOR Y=0 TO 21 

70 FOR X=0 TO 42 

80 LET Z-VAL Z$+Y 

90 IF Z«W(2,X*Y*1) OR NOT Y OR X=42 
THEN LET W(2,X*Y*1)-2 

100 IF Z>W(1,X+Y+1) OR NOT Y OR X=4 
2 THEN LET W(1,X*Y*1)-Z 

110 IF W(2,X*Y*1)-Z OR W(1,X*Y*1)-»Z 
THEN IF 2<44 AND Z»-1 THEN PLOT X*Y 


120 NEXT X 

130 NEXT Y 

140 SLOW 

150 PRINT AT 0,0;2$ 
160 GOTO 30 


Sample Run: 
SIN (X/A3)*SIN (Y/6.5)*30 


— 
سے 
.— 
——— 
سے 
— 
en‏ 
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"PATTERN" 


This program will produce different 
patterns on your Screen. Type it in 
I think you'll like it. 

From ZX USERS of Italy; Submitted 
by and with permission from the ZX 
USERS Group of New York. 


1 REM PATTERN 
10 RANDOMIZE 
20 FOR F=1 TO 20 
30 PRINT "== 
STEED | 
ЦО NEXT Е 
60 LET X=10 
70 LET Y=10 
80 LET A$="E" 
100 LET X1=1 
110 LET Y1=1 
500 PRINT AT Y,X;" @" 
510 LET X1=X1-2*( X=30) +2*(X=1) 
520 LET Yi-Y1-2*(Y-20)*2*(Y-1) 
600 LET X-X*X1 
610 LET Y=Y¥+Y1 
620 PRINT AT Y-Y1,X-X1;A$ 
630 IF RND«.05 THEN LET Aj-" W" 
640 IF RND«.044 THEN LET AS-" B" 
650 GOTO 500 


SAMPLE RUN: 


RERERRREREREEEZREZIEEEXXEEEREREEEFEZE 


‘LONG ISLAND SINCLAIR TIMEX 


USER GROUP PRESENTS 


22-81 АНС T21066 


TECHNICAL TIDEITS 
FART II 


+ ج غو و و جو جو جو بو جو چو عو چ چو و و ج و ج ج چ چ چچچ ججج 


"HEX- LOADING PROGRAM" 


This is a BIN/DEC/HEX conversion 
progran. 

Created by: Paul W. Stuehn; картон, 
МТ. 


LET X=30000 

LET A$="" 

IF A$-"" THEN INPUT AŞ 

IF A$="S" THEN STOP 

POKE X,16*CODE A$+CODE A$(2)-476 
` LET X-X*1 

LET A$=A$(3 TO ) 

GOTO 30 
9490 3€ 3t 3€ 3€ ЗЕ ЗЕ ЗЕ € ЭЕ 3E ЭЕ ЭЕ ЗЕ 3€ ЗЕ ЗЕ 3€ 3E 3E 3t 3 
9 500 BIN/DEC/HEX CONV. PRGM. 
9510 Z-PI-PI 
9520 U-PI/PI 
9 530 T=U+U 
9540 F-T*T 
9550 S-F*F 
9560 PRINT АТ F,Z; 
FIXED:";TAB Е; 
DECIMAL" 
INPUT I$ 
IF I$-"" THEN STOP 

LET T$-I$(U) 

LET X-(T AND um В") + (10 AND Т 
")+(S AND T$="H") 

IF X=Z THEN GOTO 9570 

CLS 

LET D=Z 

FOR A=T TO LEN I$ 

LET D=D*X+CODE I$(A)-28 

NEXT A 

PRINT "DEC 
LET E=D 

FOR A=U TO F 
9700 PRINT AT T,10-A;CHR$ (CODE "Ó" 
*E-S*INT (E/S)) 


"ENTER NUMBER PRE 
"B IF BINARY TAB. Е;" 
¿TAB F;"H IF HEX" 


HEX BINARY" 


9710 LET E=INT (E/S) 

9720 NEXT A 

9730 FOR A=U TO S 

9740 PRINT AT T,27-A;CHR$ (CODE "0" 
*D-T*INT (D/T)) 

9750 LET D-INT (D/T) 

9760 NEXT A 

9770 GOTO 9560 


9780 REM % ¥ O09 ¥ E 4 EH HF E ЗЕ ЗЕ 3F FE HF t 3 3 


9790 REM **END OF BI/DEC/HEX ** 
9800 REM ЗЕ ЗЕ ЗЕ 3€ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ 3€ ЗЕ ЗЕ HHH 

9970 STOP 

9971 LET A=16509 

9972 INPUT S 

9973 PRINT S 

9974 LET L=256*PEEK A+PEEK (A+1) 
9975 IF L=S THEN RETURN 

9976 IF L=9970 THEN GOTO 9979 

9977 LET A=A+4+PEEK (A*2)*256*PEEK ( 


А+3) 


9978 GOTO 9974 

9979 PRINT S; "NOT FOUND" 

9980 PRINT “LAST LINE TO BE RENUMBER 
ED-"; 

9981 GOSUB 9971 

9982 LET AE=A+3 


9983 PRINT "1ST LINE TO BE RENUMBERE 
D=" ; 

9984 GOSUB 9971 

9985 PRINT "1ST NEW LINE NUMBER="; 
9986 INPUT N 

9987 PRINT N,"INCREMENT LINES BY:"; 


9988 INPUT I 

9989 PRINT I 

9990 IF A>AE THEN GOTO 9997 

9991 IF N>9969 THEN GOTO 9999 

9992 POKE A,INT (N/256) 

9993 POKE (A*1),N-256*ÍINT (N/256) 
ARES LET A=A+4+PEEK (A*2)*256*PEEK ( 
A*3 

9995 LET N-N*I 

9996 GOTO 9990 

9997 PRINT ,,"RENUMBER COMPLETE " 
9998 STOP 
9999 PRINT ,, 
29969." 


Sample Run: 


ENTER NUMBER PREFIXED: 
B IF BINARY 
D IF DECIMAL 
H IF HEX 


"CANT COMPLETE. LINE NR 


j. 
i 5 . . - B 

$ z : : ; 

r = : 2 š 

H : ; : ; B 

! 2 E : : 


CURVE praaram: 


[ке 


Tem pty 


TUT гул: 


5 
2 
z 
E 
c 
n 


i 
+ 
I 


EA 


= 
É 


Fa Ca m fo po ges cm es 


QT 
б INK gae H 
er 3iztore 4149 
ze co TO ifie 
igo INPUT "tata! 
ere. кд 
Li IF 3:20 THEN INPUT “HUST bz 
izz80...1fruü aagain:";:3 co TO iia 
iz8 LET š T r Я coc 
rainates Tx E 
750 
LORE. 
l142 L 
158 Р a 
TO 1га 
166 IHF z 
“ixj M a, 
IF GD SUB 
iša HEXT i 
138 GO SUE S18: GO TO Ze q 
SEQ INPUT “Lilist Bifix Biald 4 
both SIAM’ OR 
210 IF 4=5 THEN Go TO 28a 
>20 GO TO [2884h438) 
230 CLs PRINT “garner. fxd 
fy)" 
240 FO I PRINT " : 
Ad o y E i AB Tyg til 
252 HE : EE 
== H rner 7 a 
if ome} 
= F 


HAHI H 


2g 
e 
d 
тр SUB saa: 
Tü 28 
SSG INPUT "new coordinates: = 
QXÍI3);" yet:utit: GO TO 250 
290 INK 7: PLOT 178, ,U3R 28727: 
INE @: GO TO гай 
SOG INK 7: PLO 175,U5R 25715 
INK а: GO TO 288 
зій INE F: PLOT 175,Us5R 26727: 
ІМК а: GO SUB 553: cO TO 20 
408 TOP 


кеб) 
= 
p 
m 
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[E 
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ч... 
z 
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e FO 
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i 


€ 
r 
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me 


dg-ilrisjz/ill-j)5 


HEXT i 

LET cíe!zBü: L 
FOR isl TO n4: 
LET cíeizcíe) 
LET dig!zdíe3 
HEXT i | 
НЕХТ £ 

LET cisisxtgi: LET día! 


INPUT. "CI CU 
Urve" ;zt 


MOM (Ti (h J] CJ] CI] dr - 0101 
жож 
Чон 


only Fi frame 


Wo OMe CS D de OOO pe J 


7 
< 
И 


PLOT xii! 


quai Ch m es qi 
CC Cnt 
| 
Cu TI = 
Л) 
w 
' 
[m 
sa. 
t 
t $ TÉ 


1 
Ol F Cat fa O С СТЬ 
т) 
[- 
cC 
- 


d 4 04 Е] 


E 


; ; 255 AND x5»zü AND uiz 
FS AND y:=8 THEN RETURN 

760 INPUT "HEY!...xi25G6,9:1780! 
X =''a ж r APRESS GOTO 7590. 


s: 
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This is a sample 
of the Message 
Board. It types 
fast & 15 very 
Legible from rar 
away ! 

Just the sort or 


Sample of Message Board. 
Press any key to continue. 


HI BABE...WANT 
TO HAVE DIHHEFE 
QUT TONIGHT? 
WILL CALL YOU 
LATER! 
LOVE...GEORGE 


Re-Ink Old Ribbons 


All it takes 
is a few minutes and a can of WD-40. 


Carefully remove the plastic cover of a 
spent ribbon cartridge. Keep the car- 
tridge flat to prevent the ribbon from 
falling out, and be especially careful not 
to disturb the assembly that moves the 
ribbon. Place the cartridge on top of 
several sheets of old newspaper. 


With the top of the cartridge femoved , 
spray the bunched-up ribbon with WD- 
48. Try for even coverage, but avoid 
soaking the ribbon. Leave the ribbon 
open for about a week. The capillary ac- 
tion of the nylon fiber will absorb and 
distribute the lubricant, while evapora- . 
tion will help remove any excess fluid. 


Carefully put the top of cartridge back 
on and snap it in place. You can use the 
cartridge immediately, though if. you 
wait another week , the lubricant will be . 
even more thoroughly.- dispersed 
throughout the ribbon. Store the sprayed 
ribbon in a plastic bag to prevent пие 
evaporation of the solvent. + 


PRINT AT 20,0; INK 2; "Samp tl 
Message Board. Press 
key to continue.": PAUSE 9: 


PRINT RT 3,0; INK 3; "LARGE 
ING 91934. G.Gilder" ; INK 2 TR 


INK 1;"Type normal.: 
47 letters per LineALt tetters & 
symbols are iegal.Delete key wo 
rks. The buzz is L 
ike a margin beil and indicates 
the end of Line."''""press any k 
еу to start.”: PAUSE @: CLS 
5 FOR y=8@ TO 165 STEP 15: FOR 
х=а TO 248 STEP 15 
ið LET xs=s2: LET ys=2: LET cs- 


20 IF IHKEY£:»"" THEN GO TO 20 
230 IF INKEY$="" THEN GO TO Зе 
40 LET d$zINKEY$: LET qze 

45 IF CODE d$-12 THEN бо SUB 4 


Qa LET as23385: POKE a.x: POKE 
a+1,y: POKE а+2,х=: POKE a+3,y5 
POKE а+4,с5: LET a=a+4: FOR i= 
1 TO LEN d$: FOKE ati,CODE d$(li} 
: NEXT i: POKE 341,255: RANDOMIZ 
Е USR 32255: 
95 IF q THEN GO TO 20 
100 NEXT x: BEEP 1,20: NEXT u 
420 IF x=8 THEN LET x=24@: LET 
gzg-i5 
405 LET xzx-i2 
410 LET d$=" ": LET q=1: RETURN 


500 RESTORE 5280: FOR а=4@@@@ TO 

40220 

510 READ x: PORE a,x: NEXT a 

520 гата 17,8,64,33,215,227,6, 
7,197,6,8,126,18, 19, 35, 16, 249,1 


с 
19 


gaga STOF 
9900 SAVE s"samp.cod" "CODE 58327, 
7000: SAVE x"iarge. cod"CODE 3225 
6,2977: SAVE &"BIGTYPE" LINE 9910 
99108 LOAD x"sampP.cod"CODE : LORD 
x"Llarge.cod"CODE : GO SUB S500: 
م‎ ЧОБ 43980 
зага со TO 
9999 REH OE PROGRAM ABOVE WAS 
DEVELOPED WHEN, A FEW YEARS AGO 
I LOST HY UDICE FOR A RATHER 
EXTENDED PERIQD, THIS “BOARD" 
LITERALLY BECAHE HY VOICE FOR 
MANY WEEKS. THE “SAMP” COD.CODE 
IN LINE agga IS THE SAMPLE 
MESSAGE ABOVE. IT CAN OF COURSE 
BE ANY MESSAGE YOU CHOSE. 


